perm filename SND.F4[MUS,LCS] blob sn#093960 filedate 1974-03-25 generic text, type T, neo UTF8
00100	1	FORMAT(A5)
00200	2	FORMAT(2I)
00300	3	FORMAT(' TYPE FILE NAME  '$)
00400	4	FORMAT(' TYPE NCHNS AND SPEED  '$)
00500		TYPE 3
00600		ACCEPT 1,NM
00650		IF(NM.EQ.' ')NM='MUSAA'
00700		TYPE 4
00800		ACCEPT 2,NC,IS
00810		IF(NC.EQ.0)NC=1
00820		IF(IS.EQ.0)IS=3
00900	5	CALL PLAY(NM,NC,IS)
01000		TYPE 6
01100	6	FORMAT(' PLAY AGAIN?  '$)
01200		ACCEPT 1,J
01300		IF(J.NE.'NO')GO TO 5
01400		GO TO 4
01500		END